unit fusuarioopcoes;

{$mode objfpc}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls, Menus, Buttons;

type

  { TFormUsuarioOpcoes }

  TFormUsuarioOpcoes = class(TForm)
    ButtonSair: TBitBtn;
    ButtonCadastrarUsuario: TBitBtn;
    ButtonAlterarSenha: TBitBtn;
    ButtonTrocarUsuario: TBitBtn;
    Panel1: TPanel;
    procedure ButtonAlterarSenhaClick(Sender: TObject);
    procedure ButtonCadastrarUsuarioClick(Sender: TObject);
    procedure ButtonSairClick(Sender: TObject);
    procedure ButtonTrocarUsuarioClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormUsuarioOpcoes: TFormUsuarioOpcoes;

implementation

uses
  dmusuario, fusuarioalterarsenha, fusuariobusca, fusuariocadastro, fusuariotroca;

{ TFormUsuarioOpcoes }

procedure TFormUsuarioOpcoes.ButtonCadastrarUsuarioClick(Sender: TObject);
begin
  DataUsuario.UsuarioCadastro();
  Close();
end;

procedure TFormUsuarioOpcoes.ButtonSairClick(Sender: TObject);
begin
  Close();
end;

procedure TFormUsuarioOpcoes.ButtonTrocarUsuarioClick(Sender: TObject);
begin
  DataUsuario.UsuarioTrocar();
  Close();
end;

procedure TFormUsuarioOpcoes.ButtonAlterarSenhaClick(Sender: TObject);
begin
  DataUsuario.UsuarioAlterarSenha();
  Close();
end;

initialization
  {$I fusuarioopcoes.lrs}

end.
